#N canvas 199 63 798 509 16;
#X declare -path ../lib;
#X msg 318 275 a b c#/db d e f#/gb g#/ab;
#X obj 320 200 notes;
#X floatatom 381 4 5 0 0 0 - - -, f 5;
#X floatatom 309 4 5 0 0 0 - - -, f 5;
#X symbolatom 319 62 5 0 0 0 - - -, f 5;
#X symbolatom 387 63 15 0 0 0 - - -, f 15;
#X obj 387 34 mode;
#X obj 319 164 octave;
#X floatatom 382 124 5 0 0 0 - - -, f 5;
#X obj 319 235 list-set;
#X text 486 33 make SECTION obj;
#X msg 655 83 \; pd dsp 1;
#X obj 165 133 list-map;
#X obj 93 234 list-reduce;
#X msg 162 85 0 2 4;
#X obj 87 298 notes~;
#X obj 85 345 *~ 0.3;
#X obj 93 436 dac~;
#X text 437 179 harmonic progression;
#X text 453 209 (a sort of counter?);
#X obj 172 364 circle-of-fifths;
#X floatatom 167 328 5 0 0 0 - - -, f 5;
#X msg 235 333 0;
#X symbolatom 291 457 10 0 0 0 - - -, f 10;
#X obj 22 18 declare -path ../lib;
#X symbolatom 166 433 10 0 0 0 - - -, f 10;
#X obj 207 168 list-ref;
#X obj 319 117 scala;
#X obj 318 35 note;
#X obj 291 411 note;
#X obj 171 397 note;
#X connect 1 0 9 0;
#X connect 2 0 6 0;
#X connect 2 0 27 1;
#X connect 3 0 27 0;
#X connect 3 0 28 0;
#X connect 6 0 5 0;
#X connect 7 0 1 0;
#X connect 7 0 26 1;
#X connect 8 0 7 1;
#X connect 9 0 0 0;
#X connect 12 0 13 0;
#X connect 12 1 26 0;
#X connect 13 0 15 0;
#X connect 14 0 12 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 16 0 17 1;
#X connect 20 0 30 0;
#X connect 20 1 29 0;
#X connect 21 0 20 0;
#X connect 22 0 20 0;
#X connect 26 0 13 1;
#X connect 27 0 7 0;
#X connect 28 0 4 0;
#X connect 29 0 23 0;
#X connect 30 0 25 0;
